home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / lib / perl / 5.10.0 / sys / ucontext.ph < prev    next >
Encoding:
Text File  |  2009-06-26  |  3.0 KB  |  64 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_SYS_UCONTEXT_H)) {
  6.     eval 'sub _SYS_UCONTEXT_H () {1;}' unless defined(&_SYS_UCONTEXT_H);
  7.     require 'features.ph';
  8.     require 'signal.ph';
  9.     require 'bits/wordsize.ph';
  10.     require 'bits/sigcontext.ph';
  11.     if((defined(&__WORDSIZE) ? &__WORDSIZE : undef) == 64) {
  12.     eval 'sub NGREG () {23;}' unless defined(&NGREG);
  13.     if(defined(&__USE_GNU)) {
  14.         eval("sub REG_R8 () { 0; }") unless defined(®_R8);
  15.         eval("sub REG_R9 () { 1; }") unless defined(®_R9);
  16.         eval("sub REG_R10 () { 2; }") unless defined(®_R10);
  17.         eval("sub REG_R11 () { 3; }") unless defined(®_R11);
  18.         eval("sub REG_R12 () { 4; }") unless defined(®_R12);
  19.         eval("sub REG_R13 () { 5; }") unless defined(®_R13);
  20.         eval("sub REG_R14 () { 6; }") unless defined(®_R14);
  21.         eval("sub REG_R15 () { 7; }") unless defined(®_R15);
  22.         eval("sub REG_RDI () { 8; }") unless defined(®_RDI);
  23.         eval("sub REG_RSI () { 9; }") unless defined(®_RSI);
  24.         eval("sub REG_RBP () { 10; }") unless defined(®_RBP);
  25.         eval("sub REG_RBX () { 11; }") unless defined(®_RBX);
  26.         eval("sub REG_RDX () { 12; }") unless defined(®_RDX);
  27.         eval("sub REG_RAX () { 13; }") unless defined(®_RAX);
  28.         eval("sub REG_RCX () { 14; }") unless defined(®_RCX);
  29.         eval("sub REG_RSP () { 15; }") unless defined(®_RSP);
  30.         eval("sub REG_RIP () { 16; }") unless defined(®_RIP);
  31.         eval("sub REG_EFL () { 17; }") unless defined(®_EFL);
  32.         eval("sub REG_CSGSFS () { 18; }") unless defined(®_CSGSFS);
  33.         eval("sub REG_ERR () { 19; }") unless defined(®_ERR);
  34.         eval("sub REG_TRAPNO () { 20; }") unless defined(®_TRAPNO);
  35.         eval("sub REG_OLDMASK () { 21; }") unless defined(®_OLDMASK);
  36.         eval("sub REG_CR2 () { 22; }") unless defined(®_CR2);
  37.     }
  38.     } else {
  39.     eval 'sub NGREG () {19;}' unless defined(&NGREG);
  40.     if(defined(&__USE_GNU)) {
  41.         eval("sub REG_GS () { 0; }") unless defined(®_GS);
  42.         eval("sub REG_FS () { 1; }") unless defined(®_FS);
  43.         eval("sub REG_ES () { 2; }") unless defined(®_ES);
  44.         eval("sub REG_DS () { 3; }") unless defined(®_DS);
  45.         eval("sub REG_EDI () { 4; }") unless defined(®_EDI);
  46.         eval("sub REG_ESI () { 5; }") unless defined(®_ESI);
  47.         eval("sub REG_EBP () { 6; }") unless defined(®_EBP);
  48.         eval("sub REG_ESP () { 7; }") unless defined(®_ESP);
  49.         eval("sub REG_EBX () { 8; }") unless defined(®_EBX);
  50.         eval("sub REG_EDX () { 9; }") unless defined(®_EDX);
  51.         eval("sub REG_ECX () { 10; }") unless defined(®_ECX);
  52.         eval("sub REG_EAX () { 11; }") unless defined(®_EAX);
  53.         eval("sub REG_TRAPNO () { 12; }") unless defined(®_TRAPNO);
  54.         eval("sub REG_ERR () { 13; }") unless defined(®_ERR);
  55.         eval("sub REG_EIP () { 14; }") unless defined(®_EIP);
  56.         eval("sub REG_CS () { 15; }") unless defined(®_CS);
  57.         eval("sub REG_EFL () { 16; }") unless defined(®_EFL);
  58.         eval("sub REG_UESP () { 17; }") unless defined(®_UESP);
  59.         eval("sub REG_SS () { 18; }") unless defined(®_SS);
  60.     }
  61.     }
  62. }
  63. 1;
  64.